home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / mvaders / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-08-30  |  2.0 KB  |  64 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "MVaders - About the program."
  5.    ClientHeight    =   4455
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4860
  10.    Icon            =   FRMABOUT.FRX:0000
  11.    Left            =   1035
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   4455
  14.    ScaleWidth      =   7365
  15.    Top             =   1140
  16.    Width           =   7485
  17.    Begin CommandButton cmdOk 
  18.       Caption         =   "&Ok"
  19.       Default         =   -1  'True
  20.       Height          =   435
  21.       Left            =   3060
  22.       TabIndex        =   1
  23.       Top             =   3900
  24.       Width           =   1155
  25.    End
  26.    Begin Label lblAbout 
  27.       Alignment       =   2  'Center
  28.       Caption         =   "MVaders"
  29.       Height          =   3495
  30.       Left            =   420
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   6435
  34.       WordWrap        =   -1  'True
  35.    End
  36. Option Explicit
  37. Sub cmdOk_Click ()
  38. Unload frmAbout
  39. End Sub
  40. Sub Form_Activate ()
  41. Dim sMsg As String
  42. 'Build and display programming information
  43. sMsg = "MVaders"
  44. sMsg = sMsg + Chr$(10) + ""
  45. sMsg = sMsg + Chr$(10) + "Version: v1.0"
  46. sMsg = sMsg + Chr$(10) + "Date: August 1997"
  47. sMsg = sMsg + Chr$(10) + "Programmer: Mark Meany"
  48. sMsg = sMsg + Chr$(10) + "Language: Visual Basic v3"
  49. sMsg = sMsg + Chr$(10) + "Graphics: Ari Feldman, from SpriteLib"
  50. sMsg = sMsg + Chr$(10) + ""
  51. sMsg = sMsg + Chr$(10) + "The source code for this and others games along with"
  52. sMsg = sMsg + Chr$(10) + "tips and tutorials can be found on my web"
  53. sMsg = sMsg + Chr$(10) + "site:"
  54. sMsg = sMsg + Chr$(10) + ""
  55. sMsg = sMsg + Chr$(10) + "http://www.geocities.com/SiliconValley/Bay/9520"
  56. sMsg = sMsg + Chr$(10) + ""
  57. sMsg = sMsg + Chr$(10) + "Enjoy!"
  58. lblAbout = sMsg
  59. End Sub
  60. Sub Form_Load ()
  61. 'Make sure we are central
  62. CenterForm Me
  63. End Sub
  64.